home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / newu173c.zip / MESS173C.ZIP / R-PCMESS.MRG < prev   
Text File  |  1992-04-07  |  2KB  |  32 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBS-PC.BAS to produce RBBS-PC.NEW
  3. * RBBS-PC.BAS:  Date 9-5-1991  Size 159962 bytes
  4. * ------------[ Created 04-06-1992 ]------------
  5.  
  6. 955 IF NOT TurboLogon THEN _
  7.        GOSUB 4850 : _                                                ' RM040202
  8.        IF STR$(ZLastMsgRead) < STR$(HighMsgNumber) AND ZUserSecLevel => MsgSec THEN _ ' RM040202
  9.           GOSUB 4275                                                 ' RM040202
  10.     TurboLogon = ZFalse
  11.  
  12. 4275 CALL SkipLine(1)                                                ' RM040202
  13.      IF WelcomeAboard THEN _                                         ' RM040202
  14.         ZOutTxt$ = "You have New Mail waiting, Read now? ([Y],N)" _  ' RM040202
  15.      ELSE _                                                          ' RM040202
  16.         ZOutTxt$ = "There are New Messages since your last call, Read them now? ([Y],N)" 'RM040202
  17.      GOSUB 12999                                                     ' RM040202
  18.      CALL SkipLine(1)                                                ' RM040202
  19. 4279 IF ZNO THEN _                                                   ' RM040202
  20.         WelcomeAboard = ZFalse : _                                   ' RM040202
  21.         RETURN _                                                     ' RM040202
  22.      ELSE _                                                          ' RM040202
  23.         ZLastIndex = 2 : _                                           ' RM040202
  24.         ZAnsIndex = 1 : _                                            ' RM040202
  25.         ZWasQ = 2                                                    ' RM040202
  26.         IF WelcomeAboard THEN _                                      ' RM040202
  27.            WelcomeAboard = ZFalse : _                                ' RM040202
  28.            ZUserIn$(2) = "L" _                                       ' RM040202
  29.         ELSE _                                                       ' RM040202
  30.            ZUserIn$(2) = "*"                                         ' RM040202
  31.         GOTO 4330                                                    ' RM040202
  32.